home *** CD-ROM | disk | FTP | other *** search
/ Storm 3: Adam & Eve Portfolio / Storm III - Adam and Eve Portfolio.iso / a / a.bat < prev    next >
DOS Batch File  |  1993-01-28  |  7KB  |  507 lines
  1. @echo off
  2. cls
  3.  
  4. :A1
  5. TYPE 1.ANS
  6. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  7.  
  8. IF ERRORLEVEL 24 GOTO QUIT
  9. IF ERRORLEVEL 23 GOTO SELECTION
  10. IF ERRORLEVEL 22 GOTO A2
  11. IF ERRORLEVEL 21 GOTO 21
  12. IF ERRORLEVEL 20 GOTO 20
  13. IF ERRORLEVEL 19 GOTO 19
  14. IF ERRORLEVEL 18 GOTO 18
  15. IF ERRORLEVEL 17 GOTO 17
  16. IF ERRORLEVEL 16 GOTO 16
  17. IF ERRORLEVEL 15 GOTO 15
  18. IF ERRORLEVEL 14 GOTO 14
  19. IF ERRORLEVEL 13 GOTO 13
  20. IF ERRORLEVEL 12 GOTO 12
  21. IF ERRORLEVEL 11 GOTO 11
  22. IF ERRORLEVEL 10 GOTO 10
  23. IF ERRORLEVEL 9 GOTO 9
  24. IF ERRORLEVEL 8 GOTO 8
  25. IF ERRORLEVEL 7 GOTO 7
  26. IF ERRORLEVEL 6 GOTO 6
  27. IF ERRORLEVEL 5 GOTO 5
  28. IF ERRORLEVEL 4 GOTO 4
  29. IF ERRORLEVEL 3 GOTO 3
  30. IF ERRORLEVEL 2 GOTO 2
  31. IF ERRORLEVEL 1 GOTO 1
  32.  
  33. :A2
  34. TYPE 2.ANS
  35. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  36.  
  37. IF ERRORLEVEL 24 GOTO QUIT
  38. IF ERRORLEVEL 23 GOTO A1
  39. IF ERRORLEVEL 22 GOTO A3
  40. IF ERRORLEVEL 21 GOTO 42
  41. IF ERRORLEVEL 20 GOTO 41
  42. IF ERRORLEVEL 19 GOTO 40
  43. IF ERRORLEVEL 18 GOTO 39
  44. IF ERRORLEVEL 17 GOTO 38
  45. IF ERRORLEVEL 16 GOTO 37
  46. IF ERRORLEVEL 15 GOTO 36
  47. IF ERRORLEVEL 14 GOTO 35
  48. IF ERRORLEVEL 13 GOTO 34
  49. IF ERRORLEVEL 12 GOTO 33
  50. IF ERRORLEVEL 11 GOTO 32
  51. IF ERRORLEVEL 10 GOTO 31
  52. IF ERRORLEVEL 9 GOTO 30
  53. IF ERRORLEVEL 8 GOTO 29
  54. IF ERRORLEVEL 7 GOTO 28
  55. IF ERRORLEVEL 6 GOTO 27
  56. IF ERRORLEVEL 5 GOTO 26
  57. IF ERRORLEVEL 4 GOTO 25
  58. IF ERRORLEVEL 3 GOTO 24
  59. IF ERRORLEVEL 2 GOTO 23
  60. IF ERRORLEVEL 1 GOTO 22
  61.  
  62. :A3
  63. TYPE 3.ANS
  64. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  65.  
  66. IF ERRORLEVEL 24 GOTO QUIT
  67. IF ERRORLEVEL 23 GOTO A2
  68. IF ERRORLEVEL 22 GOTO A4
  69. IF ERRORLEVEL 21 GOTO 63
  70. IF ERRORLEVEL 20 GOTO 62
  71. IF ERRORLEVEL 19 GOTO 61
  72. IF ERRORLEVEL 18 GOTO 60
  73. IF ERRORLEVEL 17 GOTO 59
  74. IF ERRORLEVEL 16 GOTO 58
  75. IF ERRORLEVEL 15 GOTO 57
  76. IF ERRORLEVEL 14 GOTO 56
  77. IF ERRORLEVEL 13 GOTO 55
  78. IF ERRORLEVEL 12 GOTO 54
  79. IF ERRORLEVEL 11 GOTO 53
  80. IF ERRORLEVEL 10 GOTO 52
  81. IF ERRORLEVEL 9 GOTO 51
  82. IF ERRORLEVEL 8 GOTO 50
  83. IF ERRORLEVEL 7 GOTO 49
  84. IF ERRORLEVEL 6 GOTO 48
  85. IF ERRORLEVEL 5 GOTO 47
  86. IF ERRORLEVEL 4 GOTO 46
  87. IF ERRORLEVEL 3 GOTO 45
  88. IF ERRORLEVEL 2 GOTO 44
  89. IF ERRORLEVEL 1 GOTO 43
  90.  
  91. :A4
  92. TYPE 4.ANS
  93. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  94.  
  95. IF ERRORLEVEL 24 GOTO QUIT
  96. IF ERRORLEVEL 23 GOTO A3
  97. IF ERRORLEVEL 22 GOTO A5
  98. IF ERRORLEVEL 21 GOTO 84
  99. IF ERRORLEVEL 20 GOTO 83
  100. IF ERRORLEVEL 19 GOTO 82
  101. IF ERRORLEVEL 18 GOTO 81
  102. IF ERRORLEVEL 17 GOTO 80
  103. IF ERRORLEVEL 16 GOTO 79
  104. IF ERRORLEVEL 15 GOTO 78
  105. IF ERRORLEVEL 14 GOTO 77
  106. IF ERRORLEVEL 13 GOTO 76
  107. IF ERRORLEVEL 12 GOTO 75
  108. IF ERRORLEVEL 11 GOTO 74
  109. IF ERRORLEVEL 10 GOTO 73
  110. IF ERRORLEVEL 9 GOTO 72
  111. IF ERRORLEVEL 8 GOTO 71
  112. IF ERRORLEVEL 7 GOTO 70
  113. IF ERRORLEVEL 6 GOTO 69
  114. IF ERRORLEVEL 5 GOTO 68
  115. IF ERRORLEVEL 4 GOTO 67
  116. IF ERRORLEVEL 3 GOTO 66
  117. IF ERRORLEVEL 2 GOTO 65
  118. IF ERRORLEVEL 1 GOTO 64
  119.  
  120. :A5
  121. TYPE 5.ANS
  122. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  123.  
  124. IF ERRORLEVEL 24 GOTO QUIT
  125. IF ERRORLEVEL 23 GOTO A4
  126. IF ERRORLEVEL 22 GOTO A6
  127. IF ERRORLEVEL 21 GOTO 105
  128. IF ERRORLEVEL 20 GOTO 104
  129. IF ERRORLEVEL 19 GOTO 103
  130. IF ERRORLEVEL 18 GOTO 102
  131. IF ERRORLEVEL 17 GOTO 101
  132. IF ERRORLEVEL 16 GOTO 100
  133. IF ERRORLEVEL 15 GOTO 99
  134. IF ERRORLEVEL 14 GOTO 98
  135. IF ERRORLEVEL 13 GOTO 97
  136. IF ERRORLEVEL 12 GOTO 96
  137. IF ERRORLEVEL 11 GOTO 95
  138. IF ERRORLEVEL 10 GOTO 94
  139. IF ERRORLEVEL 9 GOTO 93
  140. IF ERRORLEVEL 8 GOTO 92
  141. IF ERRORLEVEL 7 GOTO 91
  142. IF ERRORLEVEL 6 GOTO 90
  143. IF ERRORLEVEL 5 GOTO 89
  144. IF ERRORLEVEL 4 GOTO 88
  145. IF ERRORLEVEL 3 GOTO 87
  146. IF ERRORLEVEL 2 GOTO 86
  147. IF ERRORLEVEL 1 GOTO 85
  148.  
  149. :A6
  150. TYPE 6.ANS
  151. ASK /FE "" ABCDEF23
  152.  
  153. IF ERRORLEVEL 8 GOTO QUIT
  154. IF ERRORLEVEL 7 GOTO A5
  155. IF ERRORLEVEL 6 GOTO 111
  156. IF ERRORLEVEL 5 GOTO 110
  157. IF ERRORLEVEL 4 GOTO 109
  158. IF ERRORLEVEL 3 GOTO 108
  159. IF ERRORLEVEL 2 GOTO 107 
  160. IF ERRORLEVEL 1 GOTO 106
  161.  
  162. :1
  163. VPIC /A  ABDULE
  164. GOTO A1
  165. :2 
  166. VPIC /A  ABIGAIL1
  167. GOTO A1
  168. :3  
  169. VPIC /A  ABIGAIL2
  170. GOTO A1
  171. :4  
  172. VPIC /A  ABIGAIL8
  173. GOTO A1
  174. :5
  175. VPIC /A  AG4WAY1
  176. GOTO A1
  177. :6
  178. VPIC /A  AHAVEN
  179. GOTO A1
  180. :7
  181. VPIC /A  AHOY_1
  182. GOTO A1
  183. :8
  184. VPIC /A  AHOY_2
  185. GOTO A1
  186. :9
  187. VPIC /A  AHOY_3
  188. GOTO A1
  189. :10
  190. VPIC /A  AHOY_5
  191. GOTO A1
  192. :11
  193. VPIC /A  AI_R_002
  194. GOTO A1
  195. :12
  196. VPIC /A  ALIKI_G
  197. GOTO A1
  198. :13
  199. VPIC /A  ALLTANED
  200. GOTO A1
  201. :14
  202. VPIC /A  ALL_FUL
  203. GOTO A1
  204. :15
  205. VPIC /A  ALL_FULL
  206. GOTO A1
  207. :16
  208. VPIC /A  ALOHA_1
  209. GOTO A1
  210. :17
  211. VPIC /A  AL_F_04
  212. GOTO A1
  213. :18
  214. VPIC /A  AMATER06
  215. GOTO A1
  216. :19
  217. VPIC /A  AMATR_13
  218. GOTO A1
  219. :20
  220. VPIC /A  AMERI_1
  221. GOTO A1
  222. :21
  223. VPIC /A  AMERI_2
  224. GOTO A1
  225. :22
  226. VPIC /A  AMERI_3
  227. GOTO A2
  228. :23
  229. VPIC /A  AMERI_4
  230. GOTO A2
  231. :24
  232. VPIC /A  AMER_G01
  233. GOTO A2
  234. :25
  235. VPIC /A  AMR039V
  236. GOTO A2
  237. :26
  238. VPIC /A  AMTUR903
  239. GOTO A2
  240. :27
  241. VPIC /A  ANAL44
  242. GOTO A2
  243. :28
  244. VPIC /A  ANALAP
  245. GOTO A2
  246. :29
  247. VPIC /A  ANDI2
  248. GOTO A2
  249. :30
  250. VPIC /A  ANDREA_G
  251. GOTO A2
  252. :31
  253. VPIC /A  ANGEL01
  254. GOTO A2
  255. :32
  256. VPIC /A  ANGELA9
  257. GOTO A2
  258. :33
  259. VPIC /A  ANISSA
  260. GOTO A2
  261. :34
  262. VPIC /A  ANITA_1
  263. GOTO A2
  264. :35
  265. VPIC /A  ANNAD
  266. GOTO A2
  267. :36
  268. VPIC /A  ANNETTE2
  269. GOTO A2
  270. :37
  271. VPIC /A  ANNIESUK
  272. GOTO A2
  273. :38
  274. VPIC /A  ANUSLICK
  275. GOTO A2
  276. :39
  277. VPIC /A  ANYMORE!
  278. GOTO A2
  279. :40
  280. VPIC /A  APLEGATE
  281. GOTO A2
  282. :41
  283. VPIC /A  APPLE1
  284. GOTO A2
  285. :42
  286. VPIC /A  AQ_F_028
  287. GOTO A2
  288. :43
  289. VPIC /A  ARCHER
  290. GOTO A3
  291. :44
  292. VPIC /A  ARCHIT
  293. GOTO A3
  294. :45
  295. VPIC /A  ARMY1
  296. GOTO A3
  297. :46
  298. VPIC /A  ARMY2
  299. GOTO A3
  300. :47
  301. VPIC /A  ARMY3
  302. GOTO A3
  303. :48
  304. VPIC /A  ARMY4
  305. GOTO A3
  306. :49
  307. VPIC /A  ARTIF
  308. GOTO A3
  309. :50
  310. VPIC /A  AS732_03
  311. GOTO A3
  312. :51
  313. VPIC /A  AS733_07
  314. GOTO A3
  315. :52
  316. VPIC /A  AS733_10
  317. GOTO A3
  318. :53
  319. VPIC /A  AS74
  320. GOTO A3
  321. :54
  322. VPIC /A  AS753_02
  323. GOTO A3
  324. :55
  325. VPIC /A  AS753_03
  326. GOTO A3
  327. :56
  328. VPIC /A  AS753_04
  329. GOTO A3
  330. :57
  331. VPIC /A  AS753_05
  332. GOTO A3
  333. :58
  334. VPIC /A  AS753_06
  335. GOTO A3
  336. :59
  337. VPIC /A  AS753_07
  338. GOTO A3
  339. :60
  340. VPIC /A  AS753_09
  341. GOTO A3
  342. :61
  343. VPIC /A  ASHBY
  344. GOTO A3
  345. :62
  346. VPIC /A  ASHLEY
  347. GOTO A3
  348. :63
  349. VPIC /A  ASPEE006
  350. GOTO A3
  351. :64
  352. VPIC /A  ASPEE010
  353. GOTO A4
  354. :65
  355. VPIC /A  ASPMS005
  356. GOTO A4
  357. :66
  358. VPIC /A  ASPMS006
  359. GOTO A4
  360. :67
  361. VPIC /A  ASPRB049
  362. GOTO A4
  363. :68
  364. VPIC /A  ASPRB156
  365. GOTO A4
  366. :69
  367. VPIC /A  ASPSEX2
  368. GOTO A4
  369. :70
  370. VPIC /A  ASPXA037
  371. GOTO A4
  372. :71
  373. VPIC /A  ASPXA057
  374. GOTO A4
  375. :72
  376. VPIC /A  ASPXA058
  377. GOTO A4
  378. :73
  379. VPIC /A  ASPXA060
  380. GOTO A4
  381. :74
  382. VPIC /A  ASPXA069
  383. GOTO A4
  384. :75
  385. VPIC /A  ASPXA093
  386. GOTO A4
  387. :76
  388. VPIC /A  ASPXA191
  389. GOTO A4
  390. :77
  391. VPIC /A  ASP_X_16
  392. GOTO A4
  393. :78
  394. VPIC /A  ASSBOTL1
  395. GOTO A4
  396. :79
  397. VPIC /A  ASSBOTL2
  398. GOTO A4
  399. :80
  400. VPIC /A  ASSFUK11
  401. GOTO A4
  402. :81
  403. VPIC /A  ASSFUK13
  404. GOTO A4
  405. :82
  406. VPIC /A  ASSFUK8
  407. GOTO A4
  408. :83 
  409. VPIC /A  ASSFUL1
  410. GOTO A4
  411. :84
  412. VPIC /A  AWESOME3
  413. GOTO A4
  414. :85
  415. VPIC /A  AFN004
  416. GOTO A5
  417. :86
  418. VPIC /A  AFTNOON1
  419. GOTO A5
  420. :87
  421. VPIC /A  AG4WAY1
  422. GOTO A5
  423. :88
  424. VPIC /A  AGORAL12
  425. GOTO A5
  426. :89
  427. VPIC /A  AJA1H
  428. GOTO A5
  429. :90
  430. VPIC /A  ALASKA
  431. GOTO A5
  432. :91
  433. VPIC /A  ALEXANDR
  434. GOTO A5
  435. :92
  436. VPIC /A  ALICIA-2
  437. GOTO A5
  438. :93
  439. VPIC /A  ALKI
  440. GOTO A5
  441. :94
  442. VPIC /A  AN1
  443. GOTO A5
  444. :95
  445. VPIC /A  AN2
  446. GOTO A5
  447. :96
  448. VPIC /A  AN3
  449. GOTO A5
  450. :97
  451. VPIC /A  AN4
  452. GOTO A5
  453. :98
  454. VPIC /A  ANDREA
  455. GOTO A5
  456. :99
  457. VPIC /A  ANITAA6
  458. GOTO A5
  459. :100
  460. VPIC /A  ANNACL
  461. GOTO A5
  462. :101
  463. VPIC /A  ANTIQ3-3
  464. GOTO A5
  465. :102
  466. VPIC /A  ANTIQX02
  467. GOTO A5
  468. :103
  469. VPIC /A  ANUDE036
  470. GOTO A5
  471. :104
  472. VPIC /A  ARLENE
  473. GOTO A5
  474. :105
  475. VPIC /A  ARMSTRON
  476. GOTO A5
  477. :106
  478. VPIC /A  ARMY4
  479. GOTO A6
  480. :107
  481. VPIC /A  AS74-1-1
  482. GOTO A6
  483. :108
  484. VPIC /A  ASIANS17
  485. GOTO A6
  486. :109
  487. VPIC /A  ASIASEX2
  488. GOTO A6
  489. :110
  490. VPIC /A  ASSWT4X1
  491. GOTO A6
  492. :111
  493. VPIC /A  AWAITING
  494. GOTO A6
  495.  
  496. :SELECTION
  497. CD\SETUP
  498. FSTORM3
  499.  
  500. :QUIT
  501. CD\SETUP
  502. FSTORM3
  503.  
  504.  
  505.  
  506.  
  507.